home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00060.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  1.2 KB  |  62 lines
  1. global onIBM, theQTMovie, gEndMovie, gKiosk
  2.  
  3. on enterFrame
  4.   if onIBM then
  5.     pause()
  6.   else
  7.     set gEndMovie to 0
  8.   end if
  9. end
  10.  
  11. on exitFrame
  12.   repeat while not mouseDown() and not (the commandDown)
  13.     if QTGetCurrtime(theQTMovie) < the duration of theQTMovie then
  14.       QTIdle(theQTMovie)
  15.       next repeat
  16.     end if
  17.     QTPause(theQTMovie)
  18.     QTDispose(theQTMovie)
  19.     set gEndMovie to 1
  20.     exit repeat
  21.   end repeat
  22.   if gEndMovie then
  23.     if gKiosk then
  24.       go("Opening2")
  25.     else
  26.       go("introPause")
  27.     end if
  28.   else
  29.     go(the frame)
  30.   end if
  31. end
  32.  
  33. on idle
  34.   if onIBM then
  35.     if QTGetCurrtime(theQTMovie) >= the duration of theQTMovie then
  36.       QTPause(theQTMovie)
  37.       QTDispose(theQTMovie)
  38.       go("introPause")
  39.     end if
  40.   else
  41.     repeat while not mouseDown() and not (the commandDown)
  42.       if QTGetCurrtime(theQTMovie) < the duration of theQTMovie then
  43.         QTIdle(theQTMovie)
  44.         next repeat
  45.       end if
  46.       QTPause(theQTMovie)
  47.       QTDispose(theQTMovie)
  48.       set gEndMovie to 1
  49.       exit repeat
  50.     end repeat
  51.     if gEndMovie then
  52.       if gKiosk then
  53.         go("Opening2")
  54.       else
  55.         go("introPause")
  56.       end if
  57.     else
  58.       go(the frame)
  59.     end if
  60.   end if
  61. end
  62.